Die Ultimative Software-P…i Collection 1996 & 1997/Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso/a/a_funk/packet2.tos/PACKEDIT.GFA

Text File | 1995-05-01 | 13.3 KB | 323 lines

bbs> Msg# 47075   To: ATARI @ALLE   From: DG3YFU   Date: 10Mar90/1305
Subject: Packet-Editor-Tool
Bulletin ID: 103001DB0BQ
Path: DB0CZ!LX0PAC!DB0IZ!PE1AYX
8AIR.GLD.NLD.EU Arnhem
R:900310/0306 @:PI8DZI.#.NLD.EU Lelystad-Flevoland #:7657 O:DG3YFU
R:900310/0052z @:PI8DAZ.NLD.EU Hengelo JO32jg
R:900310/0053z @DB0AHA [JO32QR Meppen, Emsland]
 TheBox 1.6, OP: DL2YAP]
de DG3YFU @ DB0BQ

Packet-Editor-Tool für ATARI-ST

BIOSEDIT ist ein kleiner Full-Screen Editor der speziell für den Einsatz
mit TERMINAL und PACKET-HOSTMODE-PROGRAMMEN geschrieben wurde. Es ist aber
brauch bei allen anderen Programmen denkbar, die keinen eigenen
Editor besitzen. (Die Befehle zur Überwachung der seriellen Schnittstelle
sind dann jedoch überflüssig) Der Editor kann, wenn er einmal geladen
wurde, jederzeit durch das Drücken der Tasten LINKS-SHIFT & ALTERNATE ein-
und ausgeschaltet werden. Es stehen 20 Textspeicher für Funktionstasten
mit je 400 Zeichen und ein Haupteditorspeicher zur Verfügung. Anwahl mit
f1-f10 und Shift f1-f10 sowie HELP. Alles, was im Editor geschrieben wird,
kann danach an das Hauptprogramm geschickt werden. Dazu wird der angezeigte
Speicher einfach nochmal angewählt.(z.B. Hauptspeicher, dann einfach HELP
drücken, und das Editorfenster wird geschlossen, und der Text an das
eigentliche Programm übergeben.) Mit dem INIT-Programm ist auch die
Konfiguration der Fenstergröße und Position, sowie das Abspeichern der
F-Tasten Speicher möglich.
                  Viel Spaß und Erfolg wünscht DG3YFU Lothar

                 (p.s. Anmerkungen, Kritik oder
                  Lob bitte nach DG3YFU @ DB0BQ)

' ;---------------------------------------------------------
' ;
             BIOS Background Editor (BBE)
' ;              für GIPSY-GINA od. andere Packet.Prg
' ;                 Version 1.0 4.3.1990 GFA-BASIC
       (c)1990 by Lothar Becks
' ;               Test u. Kritik DL6YAV Thomas Hartwig
' ;
' ;           nur fuer TOS 1.2 oder höhere ( 1.4! 1.6 3.0??)
' ;           ----------------------------------------------
' ;
  Aufruf:        EDIT-EIN:     links-Shift & Alternate
' ;                                   (nach Absenden, Text be-
' ;                                    halten mit rechts-Shift)
Shift & Alternate
' ;
' ;                Absenden an   :     Erneute Anwahl des schon
' ;                das Hauptprg.        angezeigten Speichers.
' ;                                     (nur im editor modus)
                         Fuer den Hauptspeicher
' ;                                    zum Beispiel: HELP,HELP.
' ;
' ;                     BUFFER   :      F1-F10 / SF1-SF10 und
cher
' ;                                   (Die FTasten haben nur einen
' ;                                    Buffer von 400 Zeichen )
' ;
' ;                     EDITOR   :      DEL,BACK,INSERT,CLRHOME
                           SHIFT-CLRHOME ,SHIFT-INSERT
' ;                                  (Lösche alles, wechsel Modus)
' ;
' ;       Befehle:     @XXXX     :    Warte XXX Sekunden.
' ;  (als editor text)
     @"txt"    :     Warte bis "txt" auf der
' ;                                    seriellen Schnittstelle
' ;                                    gelesen wird.
' ;
' ;---------------------------------------------------------
'
position=LPEEK(&H542)+2000
text$="XBRABIOSEDIT"
test$="            "
testende=position+10000
DO
  BMOVE position,VARPTR(test$),12
  EXIT IF text$=test$
  ADD position,2
  IF position=testende
    PRINT CHR$(27);"E"
   PRINT " BIOSEDIT ist noch nicht installiert !"
    PRINT " Wollen Sie BIOSEDIT generieren (J/N)?"
    a$=""
    WHILE (a$<>"J" AND a$<>"N")
      a$=UPPER$(INKEY$)
    WEND
    IF a$="J"
      GOSUB create
    ENDIF
  PAUSE 150
    END
  ENDIF
LOOP
ADD position,12
PRINT CHR$(27);"E";CHR$(27);"p";
PRINT "              SETUP FOR BACKGROUND EDITOR (c)Lothar Becks   (X:Exit)            ";
PRINT "SAVE Fn-KEYS:   ";
;
PRINT "(1)Key F01-F05  ";
PRINT "(2)Key F01-F10  ";
PRINT "(3)Key F01-F20  ";
PRINT "SETUP Window:   ";
PRINT "(^)Window up    ";
PRINT "(v)Window down  ";
PRINT "(>)Win. bigger  ";
PRINT "(<)Win. smaler  ";CHR$(27);"q"
'
o_offset=(LPEEK(position+0)/80/16+1)*16
o_lines=DPEEK(position+6)+1
w_offset=(LPEEK(position+0)/80/16+1)*16
w_lines=DPEEK(position+6)+1
SGET screen$
DEFFILL 1,3
DO
  y1=w_offset
  y2=y1+16*w_lines-1

  a$=""
  WHILE a$=""
    a$=INKEY$
  WEND
  EXIT IF a$="x"
  SPUT screen$
  IF ASC(a$)=0
    a$=RIGHT$(a$,1)
  ENDIF
  '
  IF ASC(a$)=72
    w_offset=MAX(w_offset-1,0)
  ENDIF
  IF ASC(a$)=80
fset+1,400-16*w_lines)
  ENDIF
  IF ASC(a$)=75
    w_lines=MAX(w_lines-1,2)
  ENDIF
  IF ASC(a$)=77
    w_lines=MIN(w_lines+1,INT((400-w_offset)/16))
  ENDIF
  '
  GOSUB setwindow
  '
  IF a$="0"
    GOSUB setsave(8)
    END
  ENDIF
  IF a$="1"
    GOSUB setsave(5*((80*5+2)*4)+8)
    END
  ENDIF
  IF a$="2"
    GOSUB setsave(10*((80*5+2)*4)+8)
    END
  ENDIF
  IF a$="3"
    GOSUB setsave(20*((80*5+2)*4)+8)
    END
  ENDIF
LOOP
END
PROCEDURE setwindow
  LPOKE position+0,(w_offset-16)*80
  IF w_lines<=o_lines
    DPOKE position+4,(w_lines)*80*16-1
    DPOKE position+6,(w_lines-1)
  ENDIF
RETURN
PROCEDURE setsave(anzahl)
et-16)*80
  DPOKE position+4,(w_lines)*80*16-1
  DPOKE position+6,(w_lines-1)
  BSAVE "BIOSEDIT.SET",position,anzahl
  LPOKE position+0,(o_offset-16)*80
  DPOKE position+4,(o_lines)*80*16-1
  DPOKE position+6,(o_lines-1)
  '
window
  '
  IF w_lines>o_lines
    PRINT CHR$(27);"E"
    PRINT "     Fenstergröße kann erst nach erneutem Kaltstart von BIOSEDIT"
    PRINT "     angepaßt werden,der momentane Bildschirmpuffer ist zu klein!"
    PAUSE 150
  ENDIF
RETURN
'
PROCEDURE create
  PRINT
  PRINT " Generiere nun BIOSEDIT .";
  RESTORE biosedit
  READ anzahl%
  daten$=STRING$(anzahl%,0)
  point%=0
  DO
    PRINT ".";
    READ dread$
ead$="*"
    linel%=LEN(dread$)/2-1
    dread%=VARPTR(dread$)
    daten%=VARPTR(daten$)
    FOR i%=0 TO linel%
      wert%=(PEEK(dread%)-65) OR ((PEEK(dread%+1)-65)*16)
      POKE daten%+point%,wert%
      INC point%
 ADD dread%,2
    NEXT i%
  LOOP
  OPEN "O",#1,"BIOSEDIT.PRG"
  PRINT #1,daten$;
  CLOSE #1
  END
RETURN
'
'
biosedit:
DATA 3593
DATA "AGKBAAAAMAENAAAAAAAAAAAAGJIKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAAAIEPCMDAA"
KAAMCJGAAEANNMPAAAAKAMFDCOMAAAAKAKPDCMPAAAAOANH"
DATA "AAAAFAIMBGAADAGIPDMDAAHAOEBEEFPIALMLAABGAAAAHGGABGAADAOJAGKOKEMPIEKHAA"
DATA "OMPDMDAAGCOEOEKEJLAAAABACKHGAAAAKJPDMDAAAAIEJHAAAAAAENPDMDAANDOEBEAFPI"
ACOPDMDAANDOEBEAFPIODAAKGCAAGECIEJHAAAAMAMMPC"
DATA "MDAAAANHIKPDHAPDMDAAPDOEBEPNMPAAAAAAMAPDHAPDMDAAODOEBEIFPIACMDAAAABABA"
DATA "ANJHAAAAMAANGAAIAAAADKMHEAAIAAAAAAAAPDMDAAAAPCAAPDMDAABDOEBECGJGPGDHFG"
GMFCGJGPGDHFGEGJGEHOCDHFGEHAAAAIEJHAAAAMACK"
DATA "PDMDAAJAOEBEMFPICDMDAAEBADMDPPPPBFIMPPOPBFJMPPGPPDMDAAAAOEBEACJHAAAAFA"
DATA "GCMAIKFEEEJEEFPPIPHGOGACJHAAAAFAGEMAIKFEEEJEEFPPIPHGOFAKAAMCJGAAEANNMP"
ACPACIGAAECDCIMAAAAFAIMDCJPAAAAFAGCAAAABA"
DATA "CKDCMPAAAABAGKAAAAFAGCDCJPAAAAFAGEAAAACAMHDCMPAAAACAAIAAAAFAGEDCJPAAAA"
AAAAADCPNAAAABA"
DATA "CPMAJHAAAAAAAAFAMMHGAAAAAEMAJHAABAAAAAFAMMHGAAAAKDMAJHAACAAAAAFAMMHGAA"
DATA "AAIGMAJHAADAAAAAFAMMHGAAAAEGMAJHAAEAAAAAFAMMHGAAAAAIACJHAAAABACKOEAJOE"
ABAAKAHGKPBGAABACJACJH"
DATA "AAAABACKOEAJKEAEHGAAPPCNACJHAAAACAMHOEAJBGAABAILACMDAAAAAAAAAGAAPPMLAC"
DATA "MDPPPPPPPPAGCLACJDAAAAFAIEALJLAAAAEAGGOGMADDMPAACAAAAAFAMMBGAACAICBGAA"
AAAAGAAPPOHIFCECFBEFEEEJEEFAA"
DATA "AAAAAADCPNAAAACACMMAJHAAAAAAAAFAMMHGGDMAJHAABAAAAAFAMMHGOCMAJHAACAAAAA"
DATA "FAMMHGMCMAJHAADAAAAAFAMMHGGDMAJHAAEAAAAAFAMMHGEDACJHAAAACAMHOEAJOEJPPP"
FAOMACIBDCIMAAAAFAOMBGAABAOJAGMNACMD"
DATA "AAAAAAAAAGENACMDAAAAAAAAAGMMIFCECFBEFEEEJEEFAAAAAAAADCPNAAAADAOEACJHAA"
DATA "AACAMPOEAJMAJHAAEAAAAAFAMMGGEDACJHAAAAFAOJCFJLAAAAFAOJKEABGGOADDMPAACA"
BBEJPAAAAFAMEALABGGCACFIIDCIMAAAAFAOJOEJPPP"
DATA "PPPPPPACJHAAAAFAIMIAABAABAHGCEIAABAADAHGMDCBABMAJHAAAAAAAAFACNHGACMAAB"
DATA "AALAHGKBCCJHAAAAJACNDCJMAAAAJAONCCMPAAAAAAAADLJPAAAAJAGNPGCPDDMPAAAAAA"
IBOEFHDDMPAAAAAAAAFAMMBGAAAAMJACMDAAAAAAAAOEFHDDMP"
DATA "AABAAAAAFAMMBGAAAAIEOEFHACJHAAAAJAEMDCIMAAAAFAOMDDMPAACAAAAAFAMMBGAAAA"
DATA "EKBGAAAAKGOEFHCHAAACMHAAPPCIBADAIAAAAABOJICNJLAAAAMAMMDCBMAAAAKAGPBGAA"
PAMOEFHCHAAACMHAAPPCIBADAIAAAAABOJICNJLAAAAMAMMDCBMAAAAKA"
DATA "GPACBEBNMPAAAAFAAACDJDAAAAMAANDEJPAAAADKMHCBINBFJMPPMPPCAAAHAABGAABACJ"
DATA "ACPBOEFHCHAAACMHAAPPCIBADAIAAAAABOJICNJLAAAAMAMMDCBMAAAAKAGPACBEBNMPAA"
AANDEJPAAAADKMHABJNBFJMPPMPOEFHACJHAAAAFAOMMAIGAAAEAACA"
DATA "HGADMAAJAAAAAAAAGGGCDDMPAAAAAAAAFACNACJHAAAAJACNBLJPAAAAJAEMGGIADDMPAA"
DATA "BAAAAAFACNDDMPAAAAAAAAFAMMOEFHIFIIMAIGAACCAACAHGCDCHAABGAAAAINLGOACMMP"
AOMAGMOCMMPAAHEHGEBCNJLAAAAEAGGDCBMAAAAFAIEDDMPAADAAA"
DATA "AAFAMMOEFHCCMDAAAAAADBDEJPAAAAFAMECCMPAAAAAAAABFJMPPIPDEJPAAAAFAMEIFII"
DATA "EDMDAAPECCIBCABIAAAAAAPPCLMDAACCHGGACBBMBFKMPPOODCIMAAAAFAOMDCMPAAAAFA"
AAAFAMMOEFHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
DATA "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
DATA "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAME"
AJDAACAOGIAECIBEACEAAADOEFHEDMDPPPPOEFHAAAAAAAAAA"
DATA "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEHOPPOPDCAMAAAAJAIMHGAADAENDCMPAAAAAAAA"
DATA "AAAAJAMMDCMPAAAAAAAAAAAAJAEMCAAIAAPPPPPPACJHAAAAJACNCCJHAAAAJACNGCJHAA"
HPEECJECCIEGCIBHGGAELDEHFJMPPIPHLIMMGMODCIMAAAA"
DATA "JAGPDCJMAAAAJACPDCKMAAAAJAOOAGABCHPEECJECCIEGCIBHGGAELDEHFJMPPIPJLIMMG"
DATA "MODCIMAAAAJAKODCJMAAAAJAGODCKMAAAAJACOALMLAAIEAAAAGGCCACJHAAAAJACOADJD"
PIPJFIIDCIMAAAAJAONAGAACAEMALMLAAAFAAAAGGCCAC"
DATA "JHAAAAJAKOADJDAAAAKAOOEFIIMAIFAANAHFIMPPIPJFIIDCIMAAAAJAONAGAACAKJALML"
DGGOADCJPAAAAJAGOAAAAJAONAG"
DATA "AACACHALMLAADHAAAAGGMBACJHAAAAJAONJFIIMAIGAAACAACAPGCAAGEPDCIMAAAAJAON"
DATA "AGAACAOEALMLAANEAAAAGGKAIFJLAAAAJAONAGAACAMDALMLAANEAAGDGGEBDCJPAAAAJA"
EHAAAAGGMBACJHAAAAJAONIFIIMAIGAAAC"
DATA "AACAPGCAAGEPDCIMAAAAJAONAGAABAMPALMLAACFAAADGGMAKAJHAANAAAAAJAKPAGAABA"
DATA "IOALMLAACFAAAAGGECACJHAAAAJAGNBLJPAAAAJAONHGGABCAGAAEAAGCPACJHAAAAJAON"
AAAGGIBDCJPAAAAJACNAAAAJAKNDCJPAAAAJACNAA"
DATA "AAJAONAGAABAMJALMHAAPHGGGBACJHAAAAJAONBLJPAAAAJAGNOGAABAGIACIOAAEAAGAP"
DATA "ALMHAAIAGGMCACJHAAAAJAONBLJPAAAAJACNHGAABAKGJFJLAAAAJAONACJHAAAAJAONBL"
LMLAAHEAAHDGGMCACJHAAAAJACNACMPAAAAAAAA"
DATA "BLJPAAAAJAGNPGCPDCJPAAAAJACNAAAAJAKNDCJPAAAAJACNAAAAJAONAGAABAKBCDMDAA"
DATA "EBBEJPAAAAKAOPALIJHGIABFJMPPKPAGAAAAIKEABEAAEBEEBEADJDAAAAJAANCLAEGGCE"
AAAJAMMACJHAAAAJACNMAIJAAAAAAAAGGIPJF"
DATA "IIBLJPAAAAJAGNOGAAAACBMAIGAANAPPOPHGAAAAIAACMLAAMBAANACDMDAAAADDBMAAAA"
DATA "JAANJOIEJOJEBEJPAAAALACFBCJLAAAAJACNAAAABCJLAAAAJAGNAAEABCJLAAAAJAKNAA"
CAPABEAAAAAJAGNDCAPABIAAAAAJAKNDCAP"
DATA "ABMAAAAAJAONAGAAAACMALMHAANAGGIBCDJDAAAAKAAPCLJHAAAAMACNGGKADCJPAAAAJA"
DATA "GPAAAAJAKNACJDAAAAJAIMMAJHAACAAAAAJAKPGGACACJHAAAAJAGNBLJPAAAAJAONHGGA"
CAGAAEAAGCPACJHAAAAJAONACMLAAJDAAACACJHAAAAJAONACAMDCIMAAAAJAONACJHAA"
DATA "AAJAONMAAKAAAAAAAAHGIPIFIIDCIMAAAAJAONBLJPAAAAJACNMGKADCJPAAAAJACNAAAA"
DATA "JAONBLJPAAAAJAGNPGKADCJPAAAAJAGNAAAAJAONACJHAAAAJAONBLJPAAAAJAKNMGKADC"
DATA "JPAAAAJAOOAAAAJAKNBLJPAAAAKACPNGKADCJPAAAAJAGPAAAAJAKNBGAAAAGEKEJHAAAA"
DATA "JAMMMEPNPHPPOEFHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKIEHAAAADKEHAAAAKIEHAA"
DATA "AAKIEHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAACJHAAAAJAKN"
TA "KCJHAAAAJAONCCJHAAAAKAKPECJHAAAAKAGPEDJDAAAAMACNNENOAAEAFEKOFAAAGCKECH"
DATA "PEACIBLEBPAAAAICLEGHPAIBFJJEMOAAAFLENOBAAABFLMPPEPNLIMGGOCGDJDAAAAJAKP"
DATA "KCMELENOPPALKAFBAAPPBFLMPPGPGDMDAAPEGJBEDDDMAAAAKAOOGDJDAAAAMACNGJCEDD"
 "DMAAAAKAAPCFLIALMLAAAAAAAAHGABALMHAANAHGIEBFJMPPEKBFKMPPIJAGMFGHPAANBM"
DATA "DFBELGEBIHAAICLEADBAIBEMBFIMPPMPHELOAAAFBFLMPPAPFEKOFAAADFCELGIBGCMDAA"
DATA "AABAPDCCDAECEMBFJMPPMPBNMPAAAAAAAFBFKMPPAPAGOBGHPADFBELGEBIHAAICLEADBA"
DATA "IBEMBFIMPPMPHELOAAAFBFLMPPAPBFKMPPKDDCIMAAAAKACPOEFHAAAAAAAAAAAAAAAAAA"
DATA "AAAAAAAAAAAAAAAACGAAAAAALDAAAAAAMDAAAAAANDAAAAAAODAAAAAAPDAAAAAAAEAAAA"
DATA "AABEAAAAAACEAAAAAADEAAAAAAEEAAAAAAEFAAAAAAFFAAAAAAGFAAAAAAHFAAAAAAIFAA"
DATA "AAAAJFAAAAAAKFAAAAAALFAAAAAAMFAAAAAANFAAAAAAAAKIEHAAAADKEHAAAAKIEHAAAA"
DATA "KIEHAAAAMAENAAAADBEBAAAAMAENAAAAMAENAAAADBMBAAAAJBMFAAAADBMBAAAADBMBAA"
DATA "AAJBEGAAAAPBEKAAAAJBEGAAAAJBEGAAAAPBMKAAAAFCMOAAAAPBMKAAAAPBMKAAAAFCEP"
DATA "AAAAMCEDAAAAFCEPAAAAFCEPAAAAMCMDAAAACDMHAAAAMCMDAAAAMCMDAAAACDEIAAAAID"
DATA "EMAAAACDEIAAAACDEIAAAAIDMMAAAAPDMAAAAAIDMMAAAAIDMMAAAAPDEBAAAAFEEFAAAA"
DATA "PDEBAAAAPDEBAAAAFEMFAAAALEMJAAAAFEMFAAAAFEMFAAAALEEKAAAABFEOAAAALEEKAA"
DATA "AALEEKAAAABFMOAAAAIFMCAAAABFMOAAAABFMOAAAAIFEDAAAAOFEHAAAAIFEDAAAAIFED"
DATA "AAAAOFMHAAAAEGMLAAAAOFMHAAAAOFMHAAAAEGEMAAAALGEAAAAAEGEMAAAAEGEMAAAALG"
DATA "MAAAAABHMEAAAALGMAAAAALGMAAAAABHEFAAAAHHEJAAAABHEFAAAABHEFAAAAHHMJAAAA"
DATA "NHMNAAAAHHMJAAAAHHMJAAAANHEOAAAAEIECAAAANHEOAAAANHEOAAAAEIMCAAAAKIMGAA"
DATA "AAEIMCAAAAEIMCLBFENAACFEEEJEEFPECFACOEJEDEIEEFACJEOEDFEFBEMEJEFECFEFHA"
DATA "AAAAIFCECFBECEJEPEDFFEEEJEEFAAAAEGAADBPPAADAAAAAAAACKAMCOAGBEBKCGAGAED"
GAOAGAIBIAMAMAMAMAKAEBGBOAOBABCDIAKAKAKAKAIAIBIAICGAKAIAGAMA"
DATA "ABMAMAGBOAGAMAKACBEBMAGAIAOBGAACGAOAGAGCGAOAGAOAIBGAGAKAIAACEBIAOAABAC"
OAKAMAGAGAGAMBGAGAMBGAGAOAGACBCBGACBCBCBEACBCBCBCBEAGACBCBEB"
DATA "CBGAOAIBEAGAEAABGAGBGAKAGAGAIBMAIAEAGAEAOAIBKAEAKAGAABOBKAGAIAIAIAKAIA"
DATA "IAIAABGAIAEAGAIAIAGAOAMAIAGAABGAIAEAGAIAEAGAGAIAEAGAIAEAKAIBEAEAEAACGA"
AGAOCKBGAIAMHKGEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA"
DATA "EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA"
DATA "EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAAA",*